home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 07 - 1991 / 07.02 Feb 91 / xserial source ƒ / StrToLong.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-12-03  |  482 b   |  40 lines  |  [TEXT/KAHL]

  1. #include    "xcmd.h"
  2.  
  3. pascal long        StrToLong(block,s)
  4.     XCmdBlockPtr    block;
  5.     char            *s;
  6. {
  7. #ifdef    XTEST
  8.  
  9.     long            n;
  10.     short            slen;
  11.     char            c;
  12.     long            place;
  13.     
  14.     slen = s[0];
  15.     
  16.     n = 0L;
  17.     place = 1L;
  18.     while(slen)
  19.         {
  20.         if (s[slen] >= '0' && s[slen] <= '9')
  21.             {
  22.             c = s[slen] - '0';
  23.             n += c * place;
  24.             place *= 10;
  25.             }
  26.         slen--;
  27.         }
  28.     return(n);
  29.  
  30. #else
  31.  
  32.     block->inArgs[0] = (long)s;
  33.     block->request = xreqStrToLong;
  34.     block->entryPoint();
  35.     return( (long)block->outArgs[0]);
  36.     
  37. #endif
  38.     
  39. }
  40.